(Fcall_process) [__osf__ && __alpha]:

Don't stop reading if read returns negative.

diff --git a/src/callproc.c b/src/callproc.c
index 1da4b4d5781b3418a84abc906d01ba6d913d7998..0881ed988843714aefc6d2a7e813db630aae00b2 100644 (file)
--- a/src/callproc.c
+++ b/src/callproc.c
@@ -427,8 +427,16 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.")
     register int nread;
     int first = 1;
 
-    while ((nread = read (fd[0], buf, sizeof buf)) > 0)
+    while ((nread = read (fd[0], buf, sizeof buf)) != 0)
       {
+       if (nread < 0)
+         {
+#if defined (__osf__) && defined (__alpha)
+           continue;           /* Work around bug in DEC OSF/1 V3.0.  */
+#else
+           break;
+#endif
+         }
        immediate_quit = 0;
        if (!NILP (buffer))
          insert (buf, nread);